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FALACTINI = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:33:3 AX/VMS Macro V04-00 Pa = 
04-000 8: 82 ; : LPALLSRCJPALACTINI .MAR; 1 (1), 


VO4=- SEP=19 1:16:0 
00 1 TITLE CA ACT ANT - STATE TABLE ACTION ROUTINES 
0 § -IDENT '‘v04-000' 
oe 
B38 5 PITTI IIIT T IIIT titi iii iii iii titi titi iii iii iii iii iii ii iy) 
7* * 
000 : 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
44 18 - ALL RIGHTS RESERVED. * 
PY ® 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
4 \ :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
444 1 ‘ TRANSFERRED. * Pha 
Py oe SS 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * Ini 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * Com 
aia 0 :* CORPORATION. * oe 
PY ® 
0000 $$ :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * Pas 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIG!TAL. * Syn 
0000 4 ;* * Pse 
0000 25 ;* * Cro 
4 $8 PRRAAAAAA RAAT AAA A AAA AAA AAA AAAAA AAR A KAKA AAA KKK KAKA Kee e eee eee Ass 
0000 ‘’ The 
0000 9 3++ 645 
0000 0 ; Facility: FAL (DECnet File Access Listener) The 
0000 S71 3 476 
4 33 ; Abstract: 25 
444 $0 : This module contains action routines called by the state table manager. 
0000 38 ; Environment: VAX/VMS, user mode | 
44 3 : Author: James A. Krycka, Creation Date: 16-JUN-1977 Mac 
0000 40 ; Modified By: | 33 
0000 41; $< 
0000 $s : V03-002 JAK0136 J A Krycka 07-MAR-1984 Tol 
0000 43; Change FAL$T_NAMESPEC and FALSK_NAMESPEC to FALST_FILESPEC2 | ¥ 
9008 $8 ; and FALSK_FICESPEC2. 13% 
0000 46: V03-001 KRM0066 K Malik 23-NOV-1982 | The 
0000 47; Add FALSINIT_RENAME routine. 
49 48 ; Change FALST_ EXPANDED, FALSK_EXPANDED, FALST_RESULTANT and MAC 
000 49 ; FALSK_RESULTANT symbols to FALST_EXPAND, FALSK_EXPAND, 
44 29 3 FALST_RESULT and FALSK_RESULT. 
000 13 
0000 52 ;-- 
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v04-00 DECLARATIONS -SEP=1984 01:16:0 FAL.SRCJFALACTINI.MAR;1 ( )| 
0 ¢ -SBTTL DECLARATIONS 
0 0 § 3 
0 : Include Files: 
269 8 ; 
000 60 SDAPPLGDEF ; Define DAP prologue symbols 
000 61 SDAPHDRDEF : Define DAP message header 
0000 $6 SDAPCTLDEF ; Define DAP Control message 
4h 6 $F ABDEF ; Define File Access Block sysbots 
000 64 $F ALWRKDEF ; Define FAL Work Area symbols 
8008 65 SNAMDEF ; Define Name Block symbols 
00 66 SRABDEF ; Define Record Access Block sym** 
0000 67 $XABDEF 3; Define symbols common to all XABs 
0000 68 XABALLDEF ; Define Allocation XAB symbols 
0000 69 SXABDATDEF ; Define Date and Time XAB symbols 
0000 70 $XABFHCDEF ; Define File Header Char XAB symbols 
0000 71 SXABKEYDEF ; Define Key Definition XAB symbols 
0000 Le: $SXABPRODEF : Define Protection XAB symbols 
0000 7 S$XABRDTDEF 3 Define Revision Date and Time symbols 
0000 74 $SXABSUMDEF ; Define Summary XAB symobls 
0000 75 
0000 76; 
0000 77 ; Macros: 
0000 fe 3 
0000 1? 3 None 
0000 80 ; 
0000 81 ; Equated Symbols: 
0000 56 3 
0000 8 
0000 84 ASSUME DAP$Q_DCODE_FLG EQ 0 | 
0000 85 ASSUME FAL$Q"FLG EO 0 
0000 86 
0000 87 ; 
0000 88 ; Own Storage: 
0000 89 ; 
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.SBTTL ACTION ROUTINES 
0000 ~PSECT FALSCODE NOSHR,EXE,RD,NOWRT, BYTE 


Oooo 


++ 
Functional Description: 


This module contains action routines invoked by the state table | 
manager (FALSSTATE). 


The ye parameters and completion codes Listed below are applicable 

for all of these action routines. Note that an action routine may use 
RO-R7 and AP without ceeter in them on exit. RO on exit, however, must 
represent a status code to indicate success/failure of the routine or 
a true/false condition, as appropriate. This status code is used by 

the state table manager to advance to the next state. 


BSBW FALSINIT (only routine at present) 

Input Parameters: 
Re Address of FAL work area 
R9 Address of DAP control block 
R10 Address of FAB 


| 
; Calling Sequence: | 
; R11 Address of RAB 
: Implicit Inputs: 
: None 


Output Parameters: 


RO Status code 
Ri-R7 Destroyed 
AP Destroyed 


; Implicit Outputs: | 
None 

Completion Codes: | 
RO 1 = success; 0 = failure 

Side Effects: 


None 
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~SBTTL FALSINIT 


j++ 

; This routine initializes the FAL work area in preparation for the next file 

¢ access request. This includes setting up the FAB, RAB, NAM, and FHCXAB control 
; blocks and Linking them together. 


FALSINIT:: 

BICL2 #<<FALSM_ATT_MSG>!- 
<FALSM_WILB>!- 
<FALSM_FTM>! = 
<FALSM_BLK_10>!- 


O>,(R 
MOVL #DAPSK_VALID_R2F 


Entry point 


68 00000702 8F CA Clear flags 


QOOOEDBE 8F 00 - Define which DAP messages are valid 
1C Ad DAPSL_MSG_MASK(R9) to receive from partner 
00 690 MOVB #DAPSR_RAT_D Set previous RAC value to the DAP 


O1F? C8 FALS$B_RAC(RBS default RAC value 


: Initialize the FAB, RAB, NAM, and FHCXAB control blocks. 
ASSUME FALSK_FAB GE FABSC_BLN 
ASSUME FALS$K_RAB GE RABSC 


ASSUME FALSK_NAM GE NAMSC”BLN 
ASSUME FALSK-FHCXAB GE XABSC_FHCLEN 


ASSUME FALS$L_FAB+FALSK_FAB+FALSK_RAB+FALSK_NAM EQ FALSL_FHCXAB 
$ZERO_FILL- ; Zero FAB, RAB, NAM, FHCXAB blocks 


DST=(R10)- ; which must be cont lquaue in memory 
SI1ZE=#<F ALSK_FAB+FAL$K_RAB+F ALSK_NAM+F AL$K_FHC 


PPP PLES TNI NNN NOOOOOOOOOO 
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DOOOO OOO O00 0909 009 9 909 SINISE NSNNSNIP P PAPA AA AAA III ££ S&S EE 
NOME WO OD NOU EWN 0 OD NOU EWN $90 OD NAME WIN 0 OO NOA NEW SO ODOM E UT 


AB> 
C 
C ASSUME FAB$B_BID+1 EQ FABSB_BLN 
C ASSUME RAB$B_B1D+1 EQ RABSB_BLN 
C ASSUME NAM$B_BID+1 EQ NAMSB_BLN 
: ASSUME XABS$B_COD+1 EQ XABSB_BLN 
5003 8F B0 3 MOVW #<F ABSC_BLN@8+F ABSC_BID>,- 
6A FABSB_BID(R10) ; Insert FAB block ID and Length 
0400 (8 §=9E 1 MOVAB FALST_FILESPEC(R8),- ; Store address of file specification 
2C AA ; hat) FNA(R10) ; string buffer in FAB 
SSETBIT #FABSO_NAM,FABSL_FOP(R10);Denote NAM block is present 
4401 8F B60 MOVW #<RABSt BLNOS»RABSC_B10>,- 
68 RAB$B_BID(R11) ; Insert RAB block ID and Length 
57 099s 9 MOVAB FALSL_NAM(R8) ,R7 ; Get address of NAM block 
6002 8F 8B 6 MOVW @<NAMSC BLNSS*NANSC_8 7 
67 A NAM$B_BID(R7) ; Insert NAM block ID and Length 
0500 ¢ 9E B MOVAB FAL VERPANB (RE). ; Store address of expended string 
OC A F sang ESA(R?) ; buffer in bloc 
FF 8F 90 1 MOVB #FALSR_EXPAND,- ; Store size of expanded string 
A AZ 4 NAM BESS(R7) ; buffer in NAM block 
0600 ¢ 9E 6 MOVAB FALST_RESULT(R8),- ; Store address of resultant string 
04 A 4A parte RSA(R7) ; buffer in NAM block 
FF BF 8690 4C MOVB #FALSR RESULT. ; Store size of resultant string 
02 A? 4F NAM$B_RSS(R7) ; buffer in NAM block 
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MOVB #NAMSM_ PWD aes NOP(R7); Do not mask out password in node spec 
MOVW #<XABSC_FHCLEN@BTXABSC_FHC>,- 
FALSL_FACXAB+XABS$B_CODTR8) ; Insert FHCXAB ID and Length 


Link only the RAB, NAM, and FHCXAB to the FAB at this time. 
oe other a will be chained in as required when the DAP Access message 
S processed. 


MOVL R10, RABSL_FAB(R11) ; Store FAB pointer in RAB 

MOVAL FAL$L_NAMTRB) ,- ; Store NAM pointer in FAB 
FABSL_NAM(R10 : 

MOVAL FALSL_FHCXAB(R8),- 3; Store FHCXAB pointer in XAB chain 
FABSL-~XAB(R 

MOVAL FALSL_FHCXAB+XABSL_NXT(RB),- 
FAL$L_CHAIN_NXT(RBY 3; Save address of next chain pointer 


Initialize XAB related fields in the FAL work area. 


CLRW FALSW_RECEIVED(R8) ; Zero mask of received XABs to chain 
CLAL FALSL_ALLXABINI(R8) ; Zero List of ALLXABs initialized 
CLRL FALSL_KEYXABINI (R8) ; Zero List of KEYXABs initialized 


Initialize volume and directory name descriptors for possible wildcard 
processing. 


ASSUME FAL$Q_VOLNAME+8 EQ FAL$Q_DIRNAME 


MOVAQ FAL$Q_VOLNAME(R8) ,RO ; Get address of first descriptor 

CLRL (RO)+ ; Initialize volume name descriptor 
MOVAB FALST_VOLNAME(R8),(RO)+ ; 

CLRL (RO)+ : Initialize directory name descriptor 
MOVAB FALST_DIRNAME(R8),(RO)+ ; 


Exit state with success if a valid Configuration message has been processed; 
otherwise, exit state with failure. 


EXTZV #FALSV_CNF_MSG,#1,(R8),RO 
RSB ; Exit state with status code in RO 


<7" 
b+ 


- 
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~SBTTL FALSINIT_RENAME 


FALACTINI 
v04-000 


" This routine initializes the secondary F 
: work area which are used by the rename o 


>rrrroonowowownowowonowowowowowoowowono - 
PAU "$ WDWUOK LLL LL LLL LLL 1 


O00 00 09 09 09 09 09 09 00 00 SI NINN NNN ND DDD DADA AAD TTI ££ 
=—=OOD NOUS WN (OOD NAME WN 0 OONO NEW CO OONAUE WN OOOO 


5003 8F B80 3 MOVW WF ABSC BLN@8+F ABSC_BID>,- 
6A FAB$B_BID(R10) : 
0900 (8 =«9E MOVAB = FALSTIFILESPEC2(R8),- 
2C AA FABSL~FNA(R10) 
OAC SSETBIT #FABSU_NAM, FABSL FOP(R105: 
57 0850 ¢8 9E 0081 : MOVAB FALS$L_RAM2(R8) ,R7 ,! 
6002 of B0 ppe6 MOVW HCNARSC BL NABWAAMSC BID> 
Onno ke OE nee ; WOVAB TMNSLTEGAGS 
00C1 ; MOVB #FALSR_EXPAND2, ; 
00C4 NAMSB_ESS(R7 ; 
00C6 2 MOVAB FAL$T_RESULT2(R8),- ; 
OOCA 2 NAMSL~RSA(R7) : 
oocc «2 MOVB #FALSR_RESULT2,- ; 
OOCF 2 NAM$B_RSS(R : 
0 i é MOVB #NAMSA_PWD,NAMSB_NOP(R7); 
0005 3 
8 2 3; Link the secondary NAM to the secondary 
0005 : 
0005 MOVAL FALSL _NAM2(R8) ,- : 
00D9 F ABSL-NAM(R10) : 
9 8 MOVAL ALSL FAB(R8) ,R10 : 
O0€0 MOVL : ; 


ST =(R10)- ; 
SIZE=#<FALSK_ FAB2+F ALS$K _NAM2> 


33738 AX/VMS Macro V04-00 Page 


FAL.SRCJFALACTINI.MAR;1 


AB and NAM control blocks in the FAL 
peration. 


FALSINIT_RENAME: : ; Entry point 
ASSUME FALSK_FAB2 GE FABSC_BLN 
ASSUME FALSK_ NAM2 GE NAMSC_ BLN 
ASSUME FALSL_FAB2+FALSK_FAB2 EQ FALSL_NAM2 
5A 0800 C8 ODE FALSL_ FAB2(R8),R10 ; Get address oF FAB2 in R10 
SZERO. FILL : Zero FAB2 and NAM2 placks which must 


be contiguous in memory 


Insert FAB block ID and length 
veery address of file specification 
ring buffer in FA 
Pa NAM block is 
_Ge t address of NAM2 


resent 
lock 


; “Insert NAM block ID and Length 


Store address of expanded string 
buffer in NAM bloc 
Store size of expanded 
buffer in NAM block 

Store address of resultant string 
buffer in NAM block 


string 


; Store size of resultant string 


buffer in NAM bl 
Do not mask out password in node spec 


FAB. 


; Store NAM2 pointer in FAB2 


Restore R10 to FAB pointer 


; Return success code 


FAL 
v04 


G 3 
PAL ACTIN = STATE TABLE ACTION ROUTINES 1 ~$5b=1 386 01:33:36 AX/VMS Macro V04-00 Page 
v04-00 FALSINIT_XABCHN =-SEP=1984 01:16: FAL.SRCIJFALACTINI.MAR;1 
OE4 93 -SBTTL FALSINIT_XABCHN 
OE4 94 
OE4 95 34+ 
0E4 96 ; This routine initializes the XAB chain and related XAB fields in the FAL 
O0E4 97 ; work area in preparation for receiving XAB related messages from partner 
OQOE4 98 ; after the file has been opened or created (e.g., XABS are input to the RMS 
O0E4 99 ; SEXTEND and S$CLOSE services). 
QOES 89 = 
OOE4 1 
OOE4 8 FALSINIT_XABCHN:: ; Entry point 
24 AA D4 ODES 0 CLRL F ABS$L_XAB(R10) ; Remove any XABs from chain 
4 AA DE OQ0E7 04 MOVAL FABSL_XAB(R10),- ; 
C AB OOEA 305 FAL$L~CHAIN_NXf (RB) ; Save address of next chain pointer 
72 AB =B4 «ODEC 06 CLRW FALS$W_RECEIVED(R8) ; Zero mask of received XABs to chain 
74 AB D4 OOEF $00 CLRL FALSL_ALLXABINI (R8) ; Zero List of ALLXABs initialized 
78 AB D4 OOF2 08 CLRL FALS$L_KEYXABINI (R8) ; Zero List of KEYXABs initialized 
50 601) «600 6O0FS)§=©6 309 MOVL #1,R0 ; Return success code 
05 OOF8 310 RSB ; Exit state with status code in RO 
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~SBTTL SUPPORT ROUTINES 
-PSECT FALSCODE NOSHR,EXE,RD,NOWRT BYTE 
ho 
; Functional Description: 


The following routines are cal 
state table manager (FALSSTATE 


is an input parameter. 
Calling Sequence: 


Implicit Inputs: 

None 
Output Parameters: 

RO Status code 

Ri-R5 Destroyed 

R6 Unchanged 

R7 Address of XAB initialized 
Implicit Outputs: 

None 
Completion Codes: 

RO 1 = success; 0 = failure 
Side Effects: 


None 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Se Se Se Ge Ge Ge Se Ge Se 


ASSUME XAB$B_COD+1 EQ meee 


R 
ASSUME FALSK-RDTXAB GE XABS$C_RD 


° 
FAL.SRCJFALAC 


306 by other action routines, not by the 


These routines initialize the specified XAB. For Allocation and Key 
Definition XABs, the area ID and key of reference value, respectively, 


BSBW FALSINIT_ALLXAB 
BSBW FALSINIT_DATXAB 
BSBW FALSINIT_KEYXAB 
BSBW FALSINIT_PROXAB 
BSBW FALSINIT_RDTXAB 
BSBw FALSINIT_SUMXAB 
Input Parameters: 
R6 AID value for FALSINIT_ALLXAB; REF value for FALSINIT_KEYXAB 


ee 
SUPPORT ROUTINES MOUTINES "SrSEp=19B O17G:08 PAC YSecHPALAcYiNioman:1 © 89° (3, 


QOF9 369 ASSUME FALSK_SUMXAB GE XABSC_SUMLEN 


FALACTINI = STATE TABLE ACTION ROUTINES “SEP=1984 01:33: AX/VMS Macro V04-00 
vOe-000 FALSINIT_DATXAB, FALSINIT_PROXAB Brg p= 1982 AE 716 38 EPALLSRCIPALACTINI MAR; 1 
-SBTTL FALSINIT_DATXAB, FALSINIT_PROXAB 
~SBTTL FALSINIT_SUMXAB, FALSINIT_RDTXAB 
~SBTTL FALSINIT_ALLXAB, FALSINIT_KEYXAB 


p++ 
; This routine initializes the Date and Time XAB. 


FALSINIT_DATXAB:: ; Entry point 
57 0320 C8 ODE MOVAL FALSL _DATXAB(R8) ,R7 : Get adaress of DATXAB 
$ZERO_FILL- : Zero DATXAB 


)- 
SIZE=#FALSK DATXA 
MOVW #<XABSC_DAT PNAS + KABSC _pAt>,- 
XABSB_COD(R7) ; Insert DATXAB ID and Length 


2c12 oF B0 
BRW INIT_SUC ; ALL done 


0091-31 


pee 
; This routine initializes the Protection XAB. 


AMAL WN OOO NAU EW OOOO wn 
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FALSINIT_PROXAB:: fy point 
57 034C CB DE Mov FALSL _PROXAB(R8) ,R7 ; Get address of PROXAB 
$ZERO_FILL- ; Zero PROXAB 
ST=(R as 
SIZE=#F ALS 
5813 8F BO ? MOVW #<XABSC ¢ SPROCENSB*XABSC, a i 
67 XABSB 3 Insert A mee ID and Length 
7D 11 9 BRB rier 3; ALL don 


344 
186 3; This routine initializes the Summary XAB. 


SGOOSOOCOOSOOSCOOSOSCOSOOSSOOSSSOSOSOSSSGOOSOOSOSOOOCOOSOOSOSCSOSOSCSOOOOOOOOSOOSOOO 
BEN 9 NNNININNINININNIO MD UNVIMNOOOSCOOOM GS OH S$ “HOA AOOO CBEMMMOOOCOO0OO0O0O0no 
= 
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40 
404 
405 FALSINIT_SUMXAB:: 3; Entry poin 
57 0O3A4 CB ODE 2 406 AMOVAL FALSL_ SUMXAB(RB) ,27 : Get Fee of SUMXAB 

2 407 $SZERO_FILL : Zero SUMXAB 

2 408 bST= (R7)= ; 

§ 409 pore eee : 

0C16 8F B0 410 MOVW #<XABSC TSURCENAB®XABSC_ SUM>,=- 
67 § 411 XABSB C : Insert SUMXAB ID and Length 
6B 11 tl BRB Ged ; ALL done 

; 414 34+ 
cig 3; This routine initializes the Revision Date and Time XAB. 
417° 

; 213 FALSINIT_RDTXAB:: : Entry poin 

57 0380 C8 DE 41 MOVAL FALSL _RDTXAB(RB) ,R7 : Get Btn, of RDTXAB 
420 $ZERO_FILL- : Zero RDTXAB 
421 DST=(R7)=- : 
4 § si TEReEALSK R 
141— 8F B80 4 MOVW &#<XABSC CORDICENE®XABSC_R rdT>,- 
7 4 424 XABSB : Insert “heats ID and Length 
9 11 4 425 BRB INIT esic ; ALL don 
4 4 § 
4 4 p++ 
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FALSINIT_KEYXAB 


FAL.SRCJFALACTINI.MAR; 1 


: This routine initializes the Allocation XAB (by area ID). 


FALSINIT_ALLXAB:: 
CMPL R6, #FALSK MAX_AID 
BGTR NIT_ERR 
MULL Rous #FALSK_ALLXAB,R 


MOVAB  FALSL ASE PAB ines EROD, R7 


SZERO_FILL- 
ST=(R7)= 
IZE=#F ALSK_A 


5 
MOVW #<XABSC ALLTENGB*XABSC_ 
XAB$SB_COD(R 


MOVB _ R6,X 
SSETBIT R6 
BRB IN{T_SUC 


FALSINIT_KEYXAB:: 
CMPL RG HFALSK_ MAX_REF 


NIT 
MULL RO. BFALSK 


R 
TTES#FAL SK “Hey 
MULL3 Rb #FALSK 


KEYNAM. RO 
MOVAB FALSL “REYRARCRBD (ROI, - 


XABSL~ 


MOVW peXABSC™ RETLEN. V2a8+XABS 
6p (R7) 


XABSB_C 
XAB$B_R 


OvB R6, REF (R7) 
SSETBIT R6,FALSL_KEYXABINI (R8) 


344 
3; Common exit paths. 


INIT SUC: 
MOVL 


#1,R0 
1 RS 
INIT_ERR: 
CLRL RO 
RSB 
.END 


ABS$B_AID(R7) 
FALSE CALLXABINI (RB) 


MOVAB ALSL AEH RABUROSEROD, R7 : 


Entry point 
Return error if area ID value 
is too large 
Using AID as an index, compute 
address of Allocation XAB to use 
Zero ALLXAB 


aiv>, - 
; Insert ALLXAB ID and Length 
; Store area ID value 
: Denote which ALLXAB was initialized 
; ALL done 


p++ 
; This routine initializes the Key Definition XAB (by key of reference). 


; Entry point 


; Return error if key of reference value 


is too large 

S Using REF as an index, compute 
address of KEYXAB to use 

; Zero KEYXAB 


address of key name buffer to use 
and store address in XAB 


: Using REF as an index, compute 
tk 


KEY>, 

Insert KEYXAB ID and Length 

; Store ~ of reference value 

3; Denote ich KEYXAB was initialized 


Return success code 
Exit 


Return failure code 
Exit 


3; End of module 
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FALACTINI 
Symbol table 


Q"MBx 
L$Q"MBX10SB 
$Q"RCV 
L$Q“RCVIOSB 
$Q"RM 
L$Q"STATE_CTX 
FALS$Q~SYSNET 
“TEMP 
F AL$Q~VOLNAME 
FALSQ-XMT 
FAL$Q-XMTIOSB 
FALST~DAP 
FALS$T_DIRNAME 
FAL$T~EXPAND 


>>>r>r>rr>y 
Se aa et 
Pe 


sl XABSC_KEY 
XABSC_KEYLEN_V2 
XABSC_PRO 
KABSC_PROLEN 
KABSC_ROTLEN 
XABSC_SUMLEN 
XABSL_KNM 
XABSL_NXT 
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NAMSM~ PWD 
RABSB_BID 


FALACTINI 
Psect synopsis 


= STATE TABLE ACTION ROUTINES 


ton wo se eos manmos + 


H Psect synopsis ! 


AX/VMS Macro Vv04-00 
FAL.SRCJFALACTINI.MAR; 1 


oe co meen oameea$ 
PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 G3 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NO 
ABSS 00002000 ¢ 8192.) 01 ¢( 1.) NOPIC USR CON’ ABS LCL NOSHR 
FALSCODE QOOOOIAS (¢ 420.) O02 ¢ 2. NOPIC USR CON REL LCL NOSHR 
foam coe man won w mse woana eoe+ 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:01.13 
Command processing 146 00:00:00.41 00:00:02.11 
Pass 1 322 00:00:08.11 00:00:28.29 
Symbol table sort 5 00:00:01.04 00:00:03.28 
Pass 2 94 88? B91 «36 00:00:10.03 
Symbol table output 25 00:00:00.1 00:00:00.81 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 625 00:00:11.35 00:00:45.68 


The working set_Limit was 1650 pages. 

64571 bytes (127 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1130 non-local and 4 local symbols. 
476 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

25 pages of virtual memory were used to define 24 macros. 


+ 
' Macro Library statistics : 
+ 


Macro Library name 


Macros defined 


_$255$DUA28:CFAL.OBJJFAL.MLB; 1 6 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 15 
TOTALS (all Libraries) 21 


1320 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:FALACTINI/OBJ=OBJ$:FALACTIN] MSRC$:FALACTINI/UPDATE=(ENHS:FALACTINI)+LIB$:FAL/LIB 


EX 
EX 
EX 


"SSEp-19b6 Orito:08 


NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
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